home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / doors_2 / r174chtr.zip / RSB2CHTR.MRG < prev    next >
Text File  |  1992-07-27  |  3KB  |  86 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against D:\1740704\RBBSSUB2.BAS to produce D:\SOURCE\RBBSSUB2.BAS
  3. * D:\1740704\RBBSSUB2.BAS:  Date 7-26-1992  Size 141063 bytes
  4. * ------------[ Created 07-27-1992 00:12:44 ]------------
  5. * REPLACING old line(s) by new
  6. 9600 ' $SUBTITLE: 'DefaultU - subroutine to update user defauts'
  7. ' $PAGE
  8. '
  9. '  NAME    -- DefaultU
  10. '
  11. '  INPUTS  --     PARAMETER                    MEANING
  12. '             ZAutoDownDesired
  13. '             ZBoldText$              Ansi bold (0 no, 1 yes)
  14. '             ZCheckBulletLogon
  15. '             ZExpertUser
  16. '             ZWasGR
  17. '             ZLastMsgRead
  18. '             ZLineFeeds
  19. '             ZNulls
  20. '             ZPageLength
  21. '             ZPromptBell
  22. '             ZRegDate$
  23. '             ZReqQuesAnswered
  24. '             ZRightMargin
  25. '             ZSkipFilesLogon
  26. '             ZTimesLoggedOn
  27. '             ZUpperCase
  28. '             ZUserOption$
  29. '             ZUserTextColor          Ansi of color (31-37)
  30. '             ZUserXferDefault$
  31. '
  32. '  OUTPUTS--  USER.OPTONS$
  33. '
  34. '  PURPOSE --  To update the user's record with their options.
  35. '  Meaning of graphics preference stored is as follows: where # is
  36. '  value stored for the color.  E.g. if graphics perference for text
  37. '  files is color, and preference for normal text is light yellow,
  38. '  graphics preference stored is 38.  Colors are Red, Green, Yellow,
  39. '  Blue, Purple, Cyan, and White.
  40. '
  41. '             normal                  bold
  42. ' Graphics R  G  Y  B  P  C  W    R  G  Y  B  P  C  W
  43. '   none  30 33 36 39 42 45 48 | 51 54 57 60 63 66 69
  44. '   ansi  31 34 37 40 43 46 49 | 52 55 58 61 64 67 70
  45. '  color  32 35 38 41 44 47 50 | 53 56 59 62 65 68 71
  46. '
  47.      SUB DefaultU STATIC
  48.      ZWasA =    -ZPromptBell          -2 * ZExpertUser _
  49.             -4 * ZNulls               -8 * ZUpperCase _
  50.            -16 * ZLineFeeds          -32 * ZCheckBulletLogon _
  51.            -64 * ZSkipFilesLogon    -128 * ZAutoDownDesired _
  52.           -256 * ZReqQuesAnswered   -512 * ZMailWaiting _
  53.          -1024 * (NOT ZHiLiteOff)  -2048 * ZTurboKeyUser _
  54. * ------[ first line different ]------
  55.          -4096 * ZAvailableForChat                                   ' CHT
  56.      WasX = 3*ZUserTextColor - 63 + 21*VAL(ZBoldText$) + ZWasGR
  57.      IF WasX < 1 OR WasX > 255 THEN _
  58.         WasX = 48
  59.      LSET ZUserOption$ = _
  60.         MKI$(ZTimesLoggedOn) + _
  61.         MKI$(ZLastMsgRead) + _
  62.         ZUserXferDefault$ + _
  63.         CHR$(WasX) + _
  64.         MKI$(ZRightMargin) + _
  65.         MKI$(ZWasA) + _
  66.         ZRegDate$ + _
  67.         CHR$(ZPageLength) + _
  68.         ZEchoer$
  69.      END SUB
  70. * REPLACING old line(s) by new
  71. 10607 IF ZExitToDoors OR NOT LoggingOff THEN _
  72.          EXIT SUB
  73.       Temp = ZMinsPerSession
  74.       IF ZMaxPerDay > 0 THEN _
  75.          Temp = ZMaxPerDay - TempElapsed! : _
  76.          IF Temp > ZMinsPerSession THEN _
  77.             Temp = ZMinsPerSession
  78.       Temp = -(Temp > 0) * Temp
  79.       CALL QuickTPut1 (STR$(Temp)+" min left for next call today")
  80. * ------[ first line different ]------
  81.       CALL QuickTPut1 (ZFirstName$ + ", Thanks for Calling " + ZRBBSName$ + "!")
  82.       IF NOT ZHiLiteOff THEN _
  83.          CALL QuickTPut1 (ZColorReset$)
  84.       CALL DelayTime (8 + ZBPS)
  85.       END SUB
  86.